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00 MODULE TBKINT ( IDENT = 'V04-000' ) = : 
0 BEGIN ' ; 
004 | | 
4 leutententeenententenneneenenntertereneneteetetternntnennnnnnnnennenenentees : 
'® % > 
00 i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 3 
00 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
00 is ALL RIGHTS RESERVED. x 
. ® eo 
01 ‘is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
1 ie - INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE ANY OTHER * 3 
01 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
01 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
1 ix TRANSFERRED. a 
° ® 
1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. x 
Py x 
i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
® 
* 
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14+ 
FACILITY: 
DEBUG (DBG) 


ABSTRACT: 
This module opens the image file, maps the DST (if 
any) into PO seece. and supplies routines to read sequentially 
through the DST. 


Version 1.02 


ENV] RONMENT: 
This module runs on VAX under VAX/VMS, user mode, non-AST Level. 
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Author: Carol Peters, Creation Date: 11 January 1978 
MODIFIED BY: 
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Dale Roedger, 08 December 1978 
Victoria Aolt, 23 December 1982 


Revision History: 
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05 02 18-jan-78 KGP -Changed POSITON_DST to allow 
05 an arq of 0 to imply rewind. 
05 3 $3 an-7 KGP “More detailed error reporting 
be 4 8-feb-7 KGP -POSITION_DST now knows about 
whether Ehe DST actually got 
5 5 mapped or not (so that even when 
5 5 we can't map the DST we can still 
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Vex8eb-1984 13:20:19 DLekSvMEMASTERSC TRACE. ¢ 
-PIND DST finds the MOET where it ness* 

the 


-FIND_OST i eith 
does its thing or leaves things $0. 
gnats a OO FIND DST TRACE is done. 
-Beefed up F to return a 
symbolic indtestion. and to print 
Scere error messages. 
sonptered the separation of TRACE 
EBUG - A. the a a pbb 
ae pe SECT names are now gene 
Resend TBKSPUIMSG to TBK FAKE att 
Modified require and library directives 
for native u 
* rake all DBGS” speuese to TBKS. 
FIND_DST ask for the number of 
page we need instead of 1 (SEXPREG). 
hanged CREMAPSEC to use EXPREG. 
Passed in channel number to TBK$RST FIND 
so it doesn't have to open image file 


eReng nged ca cotte to LIB$_CREMAPSEC to call 
) 

Did mewn | atens up to use updated 
files from DEBUG. 
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; § 5 ! : Table of contents: 

; 8 5 1 FORWARD ROUTINE 

: 9 8 1 tbk$find_dst, ! Find the DST and make it available. 

; BS 1 tbk$get_dst_rec, ! Make a certain DST record available. 

; Fi 090 1 tbk$get_nxt_dst, ! Make the next DST record available. 

; 85 091 #1 tbk$posTton_dst; ! Make a certain DST record available 
;.% B36 1 ! and set up for tbk$get_nxt_dst 

>; 94 093 1 

; 094 1 ! INCLUDE FILES: 

> = 095 1! 

; 6 97 28 1 REQUIRE ‘SRC$:TBKPROLOG.REQ'; 

; 66 1 

; 99 69 1 

; 100 0370 1! 

; 101 0371 1 ! MACROS: 

: ee + Ba26 1! 

; 10 0375 (1 

: 104 Beee 1! 

s 309 0375 1 ! EQUATED SYMBOLS: 

; 106 baee 1! 

: 107 0377 1.LITERAL 

; 108 0378 1 TBK_INT1 = 0; ! Diagnostic variable for mapping the DST in. 

3; 109 0379 1 

; 110 0380 1 

att 0382 | i OWN STORAGE 

; 118 $388 1! 

> (114 0384 1 

ee ht 0385 1 OWN 

; «116 0386 1 dst_begin_addr : INITIAL(1), ! virtual address where DST begins. 
: #117 0387 1 ! 1 => the DST did not get mapped, 
; (118 0388 1 dst_end_addr, ! virtual address of last byte in DST. 
: #119 0389 1 dst_next_addr ! virtual address where ‘next’ DST record begins. 
; 120 0390 exe-file: $FAB (FAC = GET), 

3 \¢¢ 308 1 exe_input : SRAB (USZ = 512); 

SS Hs 1 

: 126 94 1! 

ee t+: $2 1 ! EXTERNAL REFERENCES: 

; 126 96 1! 

s Yer 0397 1 EXTERNAL ROUTINE 

3 128 0398 1 TBK$FAO_OUT : NOVALUE, 

; 129 +444 1 tbk$fake msg : novalue : ple TRACEback messages. 

s 130 400 1 SYSSCRMPSC: ADDRESSING_MODE (GENERAL); ! Creates and maps a global section. 


mm 
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; 7 § 401 1 GLOBAL ROUTINE tbk$find_dst cing? ttehen, file name, ; 
3; 4 ¢ 1 img_header_blk, symtaB_sec_bnds) = : 
; «134 4 1 : 
s 135 404 1 !++ ; 
Bh § ret 1! Functional description: ; 
; 4 $ 1! If a OST exists for the specified image, open the image file, ‘ 
; 133 407 1! map in the DST, and set it up for get_nxt_dst, : 
3 173 Bees ! get_dst_rec, and positon_dst. ‘ 
: «(141 8410 1! If the DST cannot be mapped, for any reason, things are ; 
; 136 0411 1! left so that a non=-symbolic TRACE happens along with the > 
3 (146 be§ 1! appropriate (warning) error message. ; 
> 144 415 1! : 
3 645 0414 1 ! Formal parameters: ; 
; 146 0415 1! 2 typ enna = the channel number that the image file is open on ; 
> 147 0416 1! file name = a counted string to the file specification of : 
> (148 0417 1! the image e. : 
; «149 0418 1! img_header_bik = the address of a byte block that contains the ; 
; 150 0419 1! mage header data needed to locate the DST. : 
3 9) 0420 1! symtab_sec_bnds -The address of a 2-longword vector where the : 
; 136 0421 1! beginning and end of where the DST was mapped to : 
: 13? Be ¢ } } can be stored across TRACE invocations. ; 
3: 99 0424 1! Implicit inputs: : : 
; 138 Be 2 ! The image activator has read in the image file header. : 
; 158 0427 1 ! Output parameters: ; 
3; 6159 0428 1! : 
; 160 0429 1! : 
: 161 0430 1 ! Implicit outputs: : 
3 166 0431 1! Three own variables are set up after the DST is mapped in. . 
; bees 1! dst_begin_addr - be ng ing of the DST 

> 164 0433 1! dst_end_addr - end of the DST 

: 169 ot : st_next_addr - address of next DST record 

3 169 Oc36 1 ! Routine value: 

>; «168 rit 3 TRUE, if we expect the TRACEback will be symbolic, 

; (a 438 1! FALSE, otherwise. 

; in 439 1! 

: «171 40 1 ! Side effects: 

3 ite 0441 1! The image file is opened and closed. The DST is mapped into the 

; W Reeg 1! top of space. When this is done, the beginning and ending 

: «4174 445 1! addresses are ‘stuffed’ back into the eo longuore vector 

3 12? ree ! we are passed a pointer to (symtab_sec_bnds). 

; 179 £6 1 f= 

; 178 447 1 

, § 44 BEGIN 

; 180 44 

: «181 0 MAP 

$ 4 1 syatab_sec_bnds : ref vectorl Long) 

: 18 4b¢ file name : REF VECTOR C, B 16), 

: Hr 45 img_Reader_bik : REF BLOCK C, BYTE); 

: 1 3 22 BIND 

: 18 $26 sym_tbl_data = ang header _blk + “ing header_blk Cihd$w_symdbgoff] : BLOCK C, BYTE), 

; «6188 045 exesecnam = UPLIT BYTE TRASCIC ‘DST"); 
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; 189 45 ; 
; 190 239 LITERAL ; 
; v9 460 dst_end_address = 1; 3 
: 198 13 LOCAL 
> 194 5268 local_buffer |: VECTOR (10), ; 
; 195 0464 exe_sec_bounds : VECTOR . : 
: 196 0465 exesecnam_desc : VECTOR a : 
s 197 rh | exefilnam_desc VECTOR , ; 
; 138 been status; 3 
; 200 L O46 Lif tbk_int1 : 
; 201 U 04 Zthen : 
; soe U 047 $fao_tt_out('!/symtab sec bnds vector is at_!XL, begin = !XL', : 
; sor U Berg ert -Symtab_sec_bnds,.symtab_sec_bnds(0)); : 
: Soe O44 ! See if this is a second (or greater) invocation of : 
; 207 beg ! TRACE so that we can just reuse the DST we mapped Last time. : 
: 208 047 IF( .SYMTAB_SEC_BNDSCO) NEQ 0 ) ; 
; 209 0478 THEN a : 
Bt Re apie : 
; \¢ 0481 ! Set up to use the DST in the same way as we used ; 
: ae bee : ! it during the first invocation of TRACE. : 
: 215 0484 dst_begin_addr = .symtab_sec_bnds [0]; ; 
; 216 0485 dst_end_addr = .symtab_séc_bnds abF 3 
; siz Bos dst_next_addr = .dst_bégin_addr; : 
GBR on : 
: $5 U 0490 $fao_tt_out('!/DST exists at !XL and ends at !XL', : 
: $s¢ U Bee) _ -dst_begin_addr,.dst_end_addr); : 
; 34 rh S ! The traceback will be symbolic. F 
; 36 44 fosuret TMs? ; 
i 08 a9? a 
; 0499 i First invocation - try to map in the DST. ; 
: 0301 ! See whether the image header has valid data in it. : 
; 1 0808 5 air tbk_int? ; 
3 5 U 05 Zthen ; 
; U 0505 ei $fao_tt_out("!/symdbgoff is !XL",.img_header_blkCihd$Sw_symdbgoff]); : 
; 35 IF .img_header_blk Cihd$w_symdbgoff] EQL 0 ; 
; 9 5 then 3 
: 240 5 begin : 
: rt 219 TBKS fake_MSG(TBK$_BADHDR,0); : 
; “8 318 ! traceback will be non-symbolic. : 
: 265 14 return(false); : 
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: $ END; 

4 

ea * 

49 ! Now that the image header seems to be a valid one, see whether 

29 ; ;_it included DST data. 

2g L Rif tbk_int! 

5 U 05 ithen 

54 U 82 $fao_tt_out('!/dstblks = !XL, dstvbn = !XL', 

55 u 05 »Sym_tbl_datal ihs$w_dstblks J, 

8 U B2 et -Sym_tbl_datal ihs$l_dstvbn J); 

4 5 IF .sym_tbl_datal ihs$w_dstblks ] EQL 0 

59 5 then 

60 5 begin 

61 3 TBK$ fake_MSG(TBK$_BADDST,0); 

es 3 ! traceback will be non-symbolic 

6 


return(false); 
end; 


nd; 
1e4 
! There appears to be a DST. Do one more consistency 
' check. 


loo 
IF NOT (.sym_tbl_data Cihs$l_dstvbn] GTR 2) 
then 


begin 
TBES fake MSG(TBKS_BADDSTVBN, .SYM_TBL_DATACINSSL_DSTVBN]); 
! TRACEback will be non-symbolic. 
return(false); 
end; 
1+ 
} Map the DST into PO space. 
exe_sec_bounds iF = 200; 


exe_sec_bounds[1] = 400; 

exesecnam_desc = 3; 

exesecnam_desc [1] = exesecnam; 

exefilnam_desc 9 = figenane (03; 

exefilnam-desc = file_famel1); 

status = SYSSCRMPSC(exe_sé@c_bounds, exe_sec_bounds, 0, SECSM_EXPREG 


exesecnam Mepe e eat! tghen -Sym—tbl_dataLihs$w_dstblksJ, 
.sym_tbl_datalihs$l_dstvbnJ, 0, 05; 
fen -Status 


begin 
TBKSfake_MSG(TBKS_BADDSTMAP, .status); 
! TRACEback will be non-symbolic. 


return(false); 
end; 
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! Now load up the addresses of the beginning and end of the DST. 

lee 

dst_begin_addr = ONO, 005 bounds 03; 

dst_end_addr = .exe_séc_bounds (1); 

dst_next_addr = .ds€_begin_addr; 

TBK_INT1 


IF 
THEN 
$fao_tt_out('!/DST mapped to begin at !XL and end at !XL', 
-dst_begin_addr,.dst_end_addr); 


' Save the mapped-to addresses so that if TRACE 
! is eneened a second time we don't have to redo 
! this mapping. 


syatab_sec_bndst0] = .dst_begin_addr; 
= 


tFI 


symtab_sec_bnds -dst_end_addr; 
RETURN( true); 
END; 
{ites TBKINT 
-IDENT \V04-000\ 
-PSECT TBKSPLIT,NOWRT, SHR, PIC,0 
54 53 44 03 00000 P.AAA: .ASCII <3>\DST\ : 


.PSECT TBKSOWN,NOEXE, PIC,2 
00000001 00000 DST_BEGIN_ADDR: 
00004 DST_END_ADDR: 
60008 DST_NEXT_ADDR: 
0000¢ EXE_FILE:” 
.BY 


1 
4 
4 
3 
-BYTE 0 
«WORD 
- LONG 
- LONG 
- LONG 
«LONG 
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800000 
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EXESECNAM= P.AAA 
-EXTRN TBKSFAO OUT, TBKSFAKE_MSG 
-EXTRN SYSSCRMPSC 


-PSECT TBKSCODE,NOWRT, SHR, PIC,0 


.ENTRY TBKSFIND_DST, Save R2,R3,R4 
VAB DST BEGIN ADOR, R4 

MG HEADER BLK, R1 

4 (RT) R 


RO, R2 
SYMTAB_SEC_BNDS, R3 
TSTL a 


0401 


0456 
52 


MAI 


0477 


woor—ms 

= 

Oo 
OOP UY SEO 
FUn——Oomn 
oDNw™ 

> 

Sosaeea 

<o< 

a 

a 

See te Se Gee Sete Ge 


ne 


oa 


~ 
~m 
~ 


i Page 
MSMASTER: CTRACE.SRCITBKINT.B32; 


Bliss-32 V4.0-742 


«3c So ~ S&S o mM TWOr-DOON- CO ~m Ovr-Oer CW 
Oooo -— N/m wT w UVMMMMNNOOOD O oO Orrao oO 
vTvwwwo wt ww ww al al al al Al @) a) a) ame al ww WnAnmwm ww 
oooo oo o Oo o Oo SoooocecHe oO oo ooooo oo 
PSPS FS FS HS FS HS FS FS PROS FS FS FS TS FS FS HS HTS FS HS TS HS HS HS FHS HS HS HS HS FS FS HS HTS FS SR HS SS FE SCR SPER HE CE HR ER FETS 
w 
> ae 

« ia oe 

a ” aa 

a Tr w <a 

a -*va C¢ 

i ww 1 zt 

_ Mwxt the 

= woct ox 

w Tr oa & uu 

=z + , Fe. a2 
a nw -_ tinh 
are aa zu —enN 
an 2202 jw Sel: 4 
<a DIBVVN x oaaw 

4 OOwwuw wo 
ze amanw vu “” ss 8 
—o ' t Quoc s (=) nnn =z “vee 
oa VUE <uww ” ooa. ' aaa 
wa wud a ~ w 22= w 2aa 
ao< MNS a a 22a “x oOcae 
a (we wz “n2 a ooue <« oft 
—-=z 3-ay $1 t ~-<« = QDOawo u O22 
no N =<xw w ‘x= ' A [ee 
avo ~ mm —- wwwee io Ye 2N VOErs wes VOW 
w N o _- xw —J VE WWMWWM wwwOSd 
ao -~ ZO = =O . ~o * WWE A SAOARMN D7DOF- UMOOOE 
~ t—— am w am na Am SO WY AnWUuOAMHeA ft teem tee 
ae & oN Sc ON NG NN OO Ww MUN OMWUMoOWwWweE ee 8 Oe 
ZMA~PR~—- OSH SH OV THT OKHU TM Kw Cw Zw Kew KK OEM KYU CO 
~Oor.ey | BWM) I Sin~~T- BMRB SBWSER I ~O- 1 WR iwwRenNvreBOwoork « 
a —_ —_ 

ou S «- 304t 304 sett NN UIENUIOINITOI ITI rIY gus0nw 
a ee el ee eed el ee er - 1 ae) al) ale le ee 
ZEO-— OO OF OLA Or OMAAMOMIETFTSEECrA®TAVCAAvVAA MADE zaove 


oe a 
NWO VLWOOCDMOuUNR <OWT OD NOUNR Oo OONMMaOOM<OouNYL vou 
HORII AS oF Fe UN OO DORE DUO ORF OOS aes S35 
DOOCSCDSCOCCOCCCDOSOSOOCOCOCOCOSDODOSOOCOOOOOOOOOOOOOOOOO OOOO 
SOSOSSODSOOCSOSOSOSOSOOOCOCOCOSOOCOCOSOCOSOOSCOOSOSOOOOOOOOOOOOODOO 


OOK NNT OM NNT Orn TF OOK LVOW EE VOU OU ue Ou DODO OO--OOCCOOvw wr? 
-OMO— OOO OO OF OOK OMAR GR. OMOR-OOOOOuWOOUK—F. OR. COCOO 
MTOr” awe ON 42 We WIEN ee Oe OW a a oOOu Neer OO 
Se SS Sa 6 Sawa teen w 
oOo 
wv m™ ow @ Mm oO Oo or -~O aw o o 
So un Oo oS - ef oo oo NO MPM @ - 
oO oO o - S&S o - 
C) oo @ o Oo So co 
oa oa oa ~N oa 
Oo o Oo o So 
o o o So o 
o o o o So 
wv ~N Wl w on So wwmo 
ot o <«q<aaqacoct ~ o- co wocouw 
oO oO 
f°] Ooweow oo So So f°] 
o --COOoO oO oS i=) Oo 
So So 
oS oS 
So So 
i=] So 
oOo f=] 
oO o 
uw 
c-< 
w 
o 


Routine Base: 


TBKSCODE + 0000 


192 bytes, 
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GLOBAL ROUTINE tbk$get_dst_rec (rec_id) = 
144 
! Functional description: 
Make the indicated DST record available. 
Input parameters: 


= - The ID of the record to be fetched. 
pare ID must be one that was previously returned 
y 


a call to tbk$get_nxt_dst. 


OOOQOOOCOCOCOooO 


PAGO OCOMIVIMUINIVI 


Implicit inputs: 
none 


Output parameters: 
none 


DOOGOGOGOOCCOOOOOOOO 


Implicit outputs: 
none 


Routine value: 
. if the indicated record does not exist; 
the address of where it can now be referenced, otherwise. 


Side effects: 
The DST record is made available. 


WARRREREEEEEE 


BEGIN 
BIND 


COOCCCSCOSCSOOOCOOOOSOOOOSoOSOOO: 
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MAMI 


dst_recrd = .rec_id : dst$record; 


'44 

! The record ID is the same as the virtual address at which it 

! can be referenced. The next record, then, is simply the one that 
} is virtually contiguous to this one, except for the last record. 
i] 
i 


oun 


ao 
MEUN OO OONOAOUS WN SO OONOAUE WN OO DONOUESWN “OOOO S 


! In that case, the convention is that the DST ended properly 
if a record is requested past the end marker, or if the count 
field for the supposed ‘'next’’ record is 0. 


if .rec_id EQL .dst_end_addr + 1 
THEN RETURN 0; 
' 


WWW A AI AI IROOM 


tot tot ttt tot ttt 


+ 
Now that it is safe, check for zero length records. 


if .dst recrd Cdst$b_length] EQL 0 
THEN RETURN 0; 

1 
; 


rss 


++ 

Check that the ID is valid. 

if .rec_id LSSA .dst_begin_addr OR .rec_id GIRA .dst_end_addr 
THEN RETURN 

ELSE RETURN .rec_id 
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38 bytes, Routine Base: 


; Routine Size: 


————_——4 


TBKINT Sep-1984 02:15:1 VAX=11 BLiss-32 V4.0-742 B 
yoe-000 16- Sen 1944 9bsa1s WtecbinGhAsteRcchRace Secarexiwr.aseri@ «ds 


3 ee 1 } GLOBAL ROUTINE tbk$get_nxt_dst (rec_id_ptr) = ; 
: 86 § 1 '44 3 
; 38 654 1 | Functional description: : 
; 388 655 1! Make the next DST record available. Reryre a pointer a, A, which it ‘ 
3 34 § ! can be referenced, as well as an identifying code f ; 
; 391 6 8 1 ! Input parameters: ‘ 
3 95 6 1! none ; 
; 660 1! ; 
; 394 661 1°! Implicit inputs: ° 
: 33 ¢ ! } Current values of dst_begin_addr, dst_end_addr, and dst_next_addr. : 
; 397 664 1 ! Output parameters: ; 
3 38 ee : rec_id_ptr - the identifier found for the DST record. ; 
; 400 re] 1 ! Implicit outputs: : 
: 401 0668 1! dst_next _addr is advanced by one DST record. ; 
: 40 B98? 1! 3 
; 40 0670 1 ! Routine volue: : 
; 404 0671 1! 0. if the indicated record does not exist: otherwise, the 

; 405 bee8 1! address of the record. 

; 406 673 1! 

: 407 0674 1! Side effects: 

; 408 675 1! none 

; 409 o/6 1! 

: 410 0677 1 !-- 

3; «411 0678 1 

3 ci¢ 0679 BEGIN 

3; «41 be 0 

; 414 681 MAP 

3 415 68 rec_id_ptr : REF VECTOR C,LONG); 

; 416 6 

: 417 684 '+¢ 

; 418 685 i Since record IDs are the same as their virtual addresses, the 

3; 419 6 $ i next can be obtained in the same way than ANY one can be 

: 420 6 i obtained. The only detail to fill in is passing back the ID 

$ : 1 rt 3 i _for this next one. 

; 4 : 50 RETURN (rec_id_ptr CO] = tbk$positon_dst (.det_next_edér)): 

> 424 691 1 END; 


0000 -ENTRY TBKSGET_NXT_DST, Save nothing 
0000" CF DD PUSHL DST. NEXT ADDR 
0000v CF e. CALLS ~ TORSPOSI TON. DST 
"046 «BC 0 ry 83 MOVL RO; @REC_ID_P 


; Routine Size: 16 bytes, Routine Base: TBKSCODE + O0E6 
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15 

18-$0 1984 02:15:1 VAX-11 
188 b-13R6 98:30:19 | Ut Skoum 
GLOBAL ROUTINE tbk$positon_dst (rec_id) = 


14 
: eens 4 Gescription: 

Position dst_next_addr to point to the DST record following the 
record whose DST Tdentifying code is passed to this routine as 
an argument. - 

Input parameters: 
rec_id = we yee Ht Ag code of the DST record. 
- 0 => position DST to the beginning. 


Implicit inputs: 
dst_begin_addr and dst_end_addr 


Output parameters: 
n 

Implicit outputs: 
dst_next_addr is set to point to the DST record following the 
record whose identifying code is passed as an argument. 


Routine value: 
FALSE - if the DST didn't get mapped. 


0, if the indicated record does not exist; otherwise, 
the address of the DST record. 


Side effects: 
‘next’ record is changed. 


BEGIN 


LOCAL 
rec_addr : REF dst$record; 


‘4 
Check for a ‘rewind’ command. 


IF( .REC_ID EQL 0 ) 
THEN 
BEGIN 
! Reposition the ‘dst’ to the beginning. 
! Note sneg ie. return for when the 
! DST didn’t get mapped. 
es (DST_NEXT_ADDR = .DST_BEGIN_ADDR) EQL 1 ) 


RETURN(FALSE); 
RETURN(TRUE); 
END; 


P 
CITBKINT.B32:1° 


, M15 
TBKINT 16-Sep-1984 02:15:1 VAX=-11 Bliss-32 V4.0-742 Pa 14 
v04-000 1e=88-1984 19:20:19  DISKSVMGMASTERSCTRACE -SRcITBKINT.83203°° (5 
; 483 t88 : get dst_rec does most of the work - this routine just 
¢ ope f ! includes the side effect described above. 
3; 4 7 ; rec_addr = tbk$oet_dst_rec (.rec_id); 
3; § 7? IF .rec_addr EQ 
; 488 754 _ THEN RETURN 0; 
; 489 755 
: 7 § '4¢ 
: $3) f Re-initialize the notion of 'next' DST record. 
: 49 29 dst_next_addr = -rec_addr + .rec_addr Cdst$b_length] + 1; 
> 494 3769 RETORN .Fec_addr 
; 495 761 END; 


0000 00000 ENTRY TBKSPOSITON_DST, Save nothing ; 0692 
04 A D5 9000¢ TSTL REC_ID : 0734 
1 a 000 BNEQ 1$ 3 
50 0000' gf DO 00007 - MOVL DST_BEGIN_ADDR, RO 3: 0742 
0000" CF 0 pO 0000C MOVL RO, DST_NEXT_ADDR ; 
01 50 Di 00011 CMPL RO, #1 $ 
1A 13 00014 BEQL 2$ : 
50 01 00 Ba18 MOVL #1, RO 3; 0745 
04 00019 RET 3 
04 AC DD OOOIA 1$: PUSHL REC_ID : 0752 
AD soAF 01 F 9001p CALLS #1, TBKS$GET_DST_REC : 
50 D5 00021 TSTL  REC_ADDR : 0753 
0B. 1 00235 BEQL 2s 3 
51 60 9A 00025 MOVZBL (REC_ADDR), R1 ; 0759 
0000" CF 01 A140 9E 00028 MOVAB 1(RIJCREC_ADDR], DST_NEXT_ADDR : 
04 0002F RET 3; 0760 
50 D4 00030 2$: CLRL RO 3; 0761 
04 00032 RET 3 


; Routine Size: 51 bytes, Routine Base: TBKSCODE + O0F6 


15 
TBKINT 16-Sep-1984 02:15:19  VAX#11 Bliss-32 v4.0-74 
yOe 2000 16- Bee 8Re FSB 1s Medak leteze Yk 08782 


AY 
984 20: :CTRACE.SRCITBKINT. B32: st 7) 


497 762 1 END ‘End of module 
498 8768 0 EN Bbom . 
PSECT SUMMARY 

Name Bytes Attributes | 
TBKSOWN 160 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
TBKSPLIT 4 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON. PIC;ALIGN(O) 
TBKSCODE 297° NOVEC.NOWRT, RD, EXE, SHR. LCL. REL. CON, PIC.ALIGN(O) 

Library Statistics 
cooneeae Syabols oonocowe Pages Processing 

File Total Loaded Percent Mapped Time 
~$255$DUA28: (SYSLIBILIB.L32; 1 18619 28 0 1000 0: 1.8 
“$ S3$DUA TRACE .OBJ JTBKLIB.L32;1 157 1 14 0:00. 
“$255$DuU :CTRACE .OBJ JSTRUCDEF 432: 1 323 0 7 0:00.17 
“$ 33SDUA : CTRACE..OBJJTBKDST.L3 414 10 24 30 0:00. 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: TBKINT/OBJ=OBJ$: TBKINT MSRC$: TBKINT/UPDATE=(ENHS$: TBKINT) 


Size: 297 ode + 164 data bytes . 
Run Time: 215. 
Elapsed Times’ 755.5 


037 

Lexenes/CPU-Rin: 28224 
oy Us : 140 pages 
Compi atten Complete 
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